home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
comm
/
bbs
/
bbbbs85.lha
/
rexx
/
ToggleNoise.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1993-07-24
|
362b
|
19 lines
/* $VER: ToggleNoise.rexx 6.1 ⌐ 1993 Richard Lee Stockton (24.7.93) */
x=GETCLIP('BBS_NOISE')
IF x='OFF' THEN
DO
CALL SETCLIP('BBS_NOISE')
temp='BBBBS sounds and voice are ON.'
END
ELSE
DO
CALL SETCLIP('BBS_NOISE','OFF')
temp='BBBBS sounds and voice are OFF.'
END
IF ADDRESS()='BAUD' THEN MSG temp
ELSE SAY temp
/* ToggleNoise.rexx */